home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / bin / aclocal-1.7 < prev    next >
Text File  |  2005-10-16  |  12KB  |  476 lines
  1. #!/usr/bin/perl
  2. # -*- perl -*-
  3. # Makefile.  Generated from Makefile.in by configure.
  4.  
  5. eval 'case $# in 0) exec /usr/bin/perl -S "$0";; *) exec /usr/bin/perl -S "$0" "$@";; esac'
  6.     if 0;
  7.  
  8. # aclocal - create aclocal.m4 by scanning configure.ac
  9.  
  10. # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002
  11. #           Free Software Foundation, Inc.
  12.  
  13. # This program is free software; you can redistribute it and/or modify
  14. # it under the terms of the GNU General Public License as published by
  15. # the Free Software Foundation; either version 2, or (at your option)
  16. # any later version.
  17.  
  18. # This program is distributed in the hope that it will be useful,
  19. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  20. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21. # GNU General Public License for more details.
  22.  
  23. # You should have received a copy of the GNU General Public License
  24. # along with this program; if not, write to the Free Software
  25. # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
  26. # 02111-1307, USA.
  27.  
  28. # Written by Tom Tromey <tromey@redhat.com>.
  29.  
  30. BEGIN
  31. {
  32.   my $perllibdir = $ENV{'perllibdir'} || '/usr/share/automake-1.7';
  33.   unshift @INC, $perllibdir;
  34. }
  35.  
  36. use Automake::General;
  37. use Automake::XFile;
  38.  
  39. # Some constants.
  40. $VERSION = '1.7.9';
  41. $APIVERSION = '1.7';
  42. $PACKAGE = 'automake';
  43. # Note that this isn't pkgdatadir, but a separate directory.
  44. # Note also that the versioned directory is handled later.
  45. $acdir = '/usr/share/aclocal';
  46. $default_acdir = $acdir;
  47. # contains a list of directories, one per line, to be added
  48. # to the dirlist in addition to $acdir, as if -I had been
  49. # added to the command line.  If acdir has been redirected,
  50. # we will also check the specified acdir (this is done later).
  51. $default_dirlist = "$default_acdir/dirlist";
  52.  
  53. # Some globals.
  54.  
  55. # Exit status.
  56. $exit_status = 0;
  57.  
  58. # Name of the top autoconf input: `configure.ac' or `configure.in'.
  59. $configure_ac = find_configure_ac;
  60.  
  61. # Text to output.
  62. $output = '';
  63.  
  64. # Output file name.
  65. $output_file = 'aclocal.m4';
  66.  
  67. # Which macros have been seen.
  68. %macro_seen = ();
  69.  
  70. # Which files have been seen.
  71. %file_seen = ();
  72.  
  73. # Map macro names to file names.
  74. %map = ();
  75.  
  76. # Map file names to file contents.
  77. %file_contents = ();
  78.  
  79. # How much to say.
  80. $verbose = 0;
  81.  
  82. # Matches a macro definition.
  83. #   AC_DEFUN([macroname], ...)
  84. # or
  85. #   AC_DEFUN(macroname, ...)
  86. # When macroname is `['-quoted , we accept any character in the name,
  87. # except `]'.  Otherwise macroname stops on the first `]', `,', `)',
  88. # or `\n' encountered.
  89. $ac_defun_rx = "A[CU]_DEFUN\\((?:\\[([^]]+)\\]|([^],)\n]+))";
  90.  
  91. # Matches an AC_REQUIRE line.
  92. $ac_require_rx = "AC_REQUIRE\\((?:\\[([^]]+)\\]|([^],)\n]+))\\)";
  93.  
  94.  
  95.  
  96. local (@dirlist) = &parse_arguments (@ARGV);
  97. &scan_m4_files (@dirlist);
  98. &scan_configure;
  99. if (! $exit_status)
  100. {
  101.     &write_aclocal;
  102. }
  103. &check_acinclude;
  104.  
  105. exit $exit_status;
  106.  
  107. ################################################################
  108.  
  109. # Print usage and exit.
  110. sub usage ($)
  111. {
  112.     local ($status) = @_;
  113.  
  114.     print "Usage: aclocal [OPTIONS] ...\n\n";
  115.     print "\
  116. Generate `aclocal.m4' by scanning `configure.ac' or `configure.in'
  117.  
  118.   --acdir=DIR           directory holding config files
  119.   --help                print this help, then exit
  120.   -I DIR                add directory to search list for .m4 files
  121.   --output=FILE         put output in FILE (default aclocal.m4)
  122.   --print-ac-dir        print name of directory holding m4 files
  123.   --verbose             don't be silent
  124.   --version             print version number, then exit
  125.  
  126. Report bugs to <bug-automake\@gnu.org>.\n";
  127.  
  128.     exit $status;
  129. }
  130.  
  131. # Parse command line.
  132. sub parse_arguments (@)
  133. {
  134.     local (@arglist) = @_;
  135.     local (@dirlist);
  136.     local ($print_and_exit) = 0;
  137.  
  138.     while (@arglist)
  139.     {
  140.     if ($arglist[0] =~ /^--acdir=(.+)$/)
  141.     {
  142.         $acdir = $1;
  143.     }
  144.     elsif ($arglist[0] =~/^--output=(.+)$/)
  145.     {
  146.         $output_file = $1;
  147.     }
  148.     elsif ($arglist[0] eq '-I')
  149.     {
  150.         shift (@arglist);
  151.         push (@dirlist, $arglist[0]);
  152.     }
  153.     elsif ($arglist[0] eq '--print-ac-dir')
  154.     {
  155.         $print_and_exit = 1;
  156.     }
  157.     elsif ($arglist[0] eq '--verbose')
  158.     {
  159.         ++$verbose;
  160.     }
  161.     elsif ($arglist[0] eq '--version')
  162.     {
  163.         print "aclocal (GNU $PACKAGE) $VERSION\n\n";
  164.         print "Copyright (C) 2002 Free Software Foundation, Inc.\n";
  165.         print "This is free software; see the source for copying conditions.  There is NO\n";
  166.         print "warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n\n";
  167.         print "Written by Tom Tromey <tromey\@redhat.com>\n";
  168.         exit 0;
  169.     }
  170.     elsif ($arglist[0] eq '--help')
  171.     {
  172.         &usage (0);
  173.     }
  174.     else
  175.     {
  176.         die "aclocal: unrecognized option -- `$arglist[0]'\nTry `aclocal --help' for more information.\n";
  177.     }
  178.  
  179.     shift (@arglist);
  180.     }
  181.  
  182.     if ($print_and_exit)
  183.     {
  184.     print $acdir, "\n";
  185.     exit 0;
  186.     }
  187.  
  188.     $default_dirlist="$acdir/dirlist"
  189.     if $acdir ne $default_acdir;
  190.  
  191.     # Search the versioned directory near the end, and then the
  192.     # unversioned directory last.  Only do this if the user didn't
  193.     # override acdir.
  194.     push (@dirlist, "$acdir-$APIVERSION")
  195.     if $acdir eq $default_acdir;
  196.  
  197.     # By default $(datadir)/aclocal doesn't exist.  We don't want to
  198.     # get an error in the case where we are searching the default
  199.     # directory and it hasn't been created.
  200.     push (@dirlist, $acdir)
  201.     unless $acdir eq $default_acdir && ! -d $acdir;
  202.  
  203.     # Finally, adds any directory listed in the `dirlist' file.
  204.     if (open (DEFAULT_DIRLIST, $default_dirlist))
  205.     {
  206.     while (<DEFAULT_DIRLIST>)
  207.     {
  208.         # Ignore '#' lines.
  209.         next if /^#/;
  210.         # strip off newlines and end-of-line comments
  211.         s/\s*\#.*$//;
  212.         chomp ($contents=$_);
  213.         if (-d $contents )
  214.         {
  215.         push (@dirlist, $contents);
  216.         }
  217.     }
  218.     close (DEFAULT_DIRLIST);
  219.     }
  220.  
  221.  
  222.     return @dirlist;
  223. }
  224.  
  225. ################################################################
  226.  
  227. sub scan_configure ()
  228. {
  229.     die "aclocal: `configure.ac' or `configure.in' is required\n"
  230.         if !$configure_ac;
  231.  
  232.     open (CONFIGURE, $configure_ac)
  233.     || die "aclocal: couldn't open `$configure_ac': $!\n";
  234.  
  235.     # Make sure we include acinclude.m4 if it exists.
  236.     if (-f 'acinclude.m4')
  237.     {
  238.     &add_file ('acinclude.m4');
  239.     }
  240.  
  241.     while (<CONFIGURE>)
  242.     {
  243.     # Remove comments from current line.
  244.     s/\bdnl\b.*$//;
  245.     s/\#.*$//;
  246.  
  247.     # Search for things we know about.  The "search" sub is
  248.     # constructed dynamically by scan_m4_files.  The last
  249.     # parenthetical match makes sure we don't match things that
  250.     # look like macro assignments or AC_SUBSTs.
  251.     if (! &search && /(^|\s+)(AM_[A-Z0-9_]+)($|[^\]\)=A-Z0-9_])/)
  252.     {
  253.         # Macro not found, but AM_ prefix found.
  254.         warn "aclocal: $configure_ac: $.: macro `$2' not found in library\n";
  255.         $exit_status = 1;
  256.     }
  257.     }
  258.  
  259.     close (CONFIGURE);
  260. }
  261.  
  262. ################################################################
  263.  
  264. # Check macros in acinclude.m4.  If one is not used, warn.
  265. sub check_acinclude ()
  266. {
  267.     local ($key);
  268.  
  269.     foreach $key (keys %map)
  270.     {
  271.     next unless $map{$key} eq 'acinclude.m4';
  272.     if (! $macro_seen{$key})
  273.     {
  274.         # FIXME: should print line number of acinclude.m4.
  275.         warn "aclocal: macro `$key' defined in acinclude.m4 but never used\n";
  276.     }
  277.     }
  278. }
  279.  
  280. ################################################################
  281.  
  282. # Scan all the installed m4 files and construct a map.
  283. sub scan_m4_files (@)
  284. {
  285.     local (@dirlist) = @_;
  286.  
  287.     # First, scan acinclude.m4 if it exists.
  288.     if (-f 'acinclude.m4')
  289.     {
  290.     $file_contents{'acinclude.m4'} = &scan_file ('acinclude.m4');
  291.     }
  292.  
  293.     local ($m4dir);
  294.     foreach $m4dir (@dirlist)
  295.     {
  296.     opendir (DIR, $m4dir)
  297.         || die "aclocal: couldn't open directory `$m4dir': $!\n";
  298.     local ($file, $fullfile);
  299.     foreach $file (sort grep (! /^\./, readdir (DIR)))
  300.     {
  301.         # Only examine .m4 files.
  302.         next unless $file =~ /\.m4$/;
  303.  
  304.         # Skip some files when running out of srcdir.
  305.         next if $file eq 'aclocal.m4';
  306.  
  307.         $fullfile = $m4dir . '/' . $file;
  308.         $file_contents{$fullfile} = &scan_file ($fullfile);
  309.     }
  310.     closedir (DIR);
  311.     }
  312.  
  313.     # Construct a new function that does the searching.  We use a
  314.     # function (instead of just evaluating $search in the loop) so that
  315.     # "die" is correctly and easily propagated if run.
  316.     my $search = "sub search {\nmy \$found = 0;\n";
  317.     foreach my $key (reverse sort keys %map)
  318.     {
  319.     $search .= ('if (/\b\Q' . $key . '\E(?!\w)/) { & add_macro ("' . $key
  320.             . '"); $found = 1; }' . "\n");
  321.     }
  322.     $search .= "return \$found;\n};\n";
  323.     eval $search;
  324.     die "internal error: $@\n search is $search" if $@;
  325. }
  326.  
  327. ################################################################
  328.  
  329. # Add a macro to the output.
  330. sub add_macro ($)
  331. {
  332.     local ($macro) = @_;
  333.  
  334.     # We want to ignore AC_ macros.  However, if an AC_ macro is
  335.     # defined in (eg) acinclude.m4, then we want to make sure we mark
  336.     # it as seen.
  337.     return if $macro =~ /^AC_/ && ! defined $map{$macro};
  338.  
  339.     if (! defined $map{$macro})
  340.     {
  341.     warn "aclocal: macro `$macro' required but not defined\n";
  342.     $exit_status = 1;
  343.     return;
  344.     }
  345.  
  346.     print STDERR "aclocal: saw macro $macro\n" if $verbose;
  347.     $macro_seen{$macro} = 1;
  348.     &add_file ($map{$macro});
  349. }
  350.  
  351. # Add a file to output.
  352. sub add_file ($)
  353. {
  354.     local ($file) = @_;
  355.  
  356.     # Only add a file once.
  357.     return if ($file_seen{$file});
  358.     $file_seen{$file} = 1;
  359.  
  360.     $output .= $file_contents{$file} . "\n";
  361.     my (@rlist);
  362.     foreach (split ("\n", $file_contents{$file}))
  363.     {
  364.     # Remove comments from current line.
  365.     s/\bdnl\b.*$//;
  366.     s/\#.*$//;
  367.  
  368.     if (/$ac_require_rx/g)
  369.     {
  370.         push (@rlist, $1 || $2);
  371.     }
  372.  
  373.     # The search function is constructed dynamically by
  374.     # scan_m4_files.  The last parenthetical match makes sure we
  375.     # don't match things that look like macro assignments or
  376.     # AC_SUBSTs.
  377.     if (! &search && /(^|\s+)(AM_[A-Z0-9_]+)($|[^\]\)=A-Z0-9_])/)
  378.     {
  379.         # Macro not found, but AM_ prefix found.
  380.         warn "aclocal: $configure_ac: $.: macro `$2' not found in library\n";
  381.         $exit_status = 1;
  382.     }
  383.     }
  384.  
  385.     local ($macro);
  386.     foreach $macro (@rlist)
  387.     {
  388.     &add_macro ($macro);
  389.     }
  390. }
  391.  
  392. # Scan a single M4 file.  Return contents.
  393. sub scan_file ($)
  394. {
  395.     local ($file) = @_;
  396.  
  397.     my $fh = new Automake::XFile $file;
  398.     my $contents = '';
  399.     while ($_ = $fh->getline)
  400.     {
  401.     # Ignore `##' lines.
  402.     next if /^##/;
  403.  
  404.     $contents .= $_;
  405.  
  406.     if (/$ac_defun_rx/)
  407.     {
  408.         if (! defined $map{$1 || $2})
  409.         {
  410.         $map{$1 || $2} = $file;
  411.         }
  412.  
  413.         # Note: we used to give an error here if we saw a
  414.         # duplicated macro.  However, this turns out to be
  415.         # extremely unpopular.  It causes actual problems which
  416.         # are hard to work around, especially when you must
  417.         # mix-and-match tool versions.
  418.  
  419.         print STDERR "aclocal: found macro $1 in $file: $.\n" if $verbose;
  420.     }
  421.     }
  422.  
  423.     return $contents;
  424. }
  425.  
  426. ################################################################
  427.  
  428. # Write output.
  429. sub write_aclocal ()
  430. {
  431.     return if ! length ($output);
  432.  
  433.     print STDERR "aclocal: writing $output_file\n" if $verbose;
  434.  
  435.     my $out = new Automake::XFile "> $output_file";
  436.  
  437. # We used to print `# $output_file generated automatically etc.'  But
  438. # this creates spurious differences when using autoreconf.  Autoreconf
  439. # creates aclocal.m4t and then rename it to aclocal.m4, but the
  440. # rebuild rules generated by Automake create aclocal.m4 directly --
  441. # this would gives two ways to get the same file, with a different
  442. # name in the header.
  443.     print $out
  444. "# generated automatically by aclocal $VERSION -*- Autoconf -*-
  445.  
  446. # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002
  447. # Free Software Foundation, Inc.
  448. # This file is free software; the Free Software Foundation
  449. # gives unlimited permission to copy and/or distribute it,
  450. # with or without modifications, as long as this notice is preserved.
  451.  
  452. # This program is distributed in the hope that it will be useful,
  453. # but WITHOUT ANY WARRANTY, to the extent permitted by law; without
  454. # even the implied warranty of MERCHANTABILITY or FITNESS FOR A
  455. # PARTICULAR PURPOSE.
  456.  
  457. $output";
  458. }
  459.  
  460. ### Setup "GNU" style for perl-mode and cperl-mode.
  461. ## Local Variables:
  462. ## perl-indent-level: 2
  463. ## perl-continued-statement-offset: 2
  464. ## perl-continued-brace-offset: 0
  465. ## perl-brace-offset: 0
  466. ## perl-brace-imaginary-offset: 0
  467. ## perl-label-offset: -2
  468. ## cperl-indent-level: 2
  469. ## cperl-brace-offset: 0
  470. ## cperl-continued-brace-offset: 0
  471. ## cperl-label-offset: -2
  472. ## cperl-extra-newline-before-brace: t
  473. ## cperl-merge-trailing-else: nil
  474. ## cperl-continued-statement-offset: 2
  475. ## End:
  476.